program testIfThenElseMulti;

class testIfThenElseMulti

BEGIN
   VAR aa, bb, cc, dd: integer;

FUNCTION testIfThenElseMulti;
BEGIN   
   aa := 3;
   
   IF aa = 0 THEN
   BEGIN
      bb := 1;
      dd := 3
   END
   ELSE
      cc := 4

END
   
END   
.

